home *** CD-ROM | disk | FTP | other *** search
/ 360 Degrees of: Yellowstone National Park / 360 Degrees of: Yellowstone National Park.iso / pc / data / exhibit.cst / 00155_calculate tempscript.ls < prev    next >
Encoding:
Text File  |  2008-04-21  |  1.4 KB  |  48 lines
  1. on calculatetemp
  2.   
  3.   global depthdisplay
  4.   global clicktestcursor
  5.   global demx
  6.   global demy
  7.   global temperature
  8.   global actualtemperature
  9.   
  10.   --check the location of the clicktestcursor
  11.   demx = sprite(clicktestcursor).locH
  12.   demy = sprite(clicktestcursor).locV
  13.   
  14.   --adjust for the dual display offset
  15.   demy = demy-768
  16.   
  17.   if demx > 0 and demy > 0 then
  18.     --check the pixel value of the dem
  19.     temperatureImage = member("map_temperature").image.duplicate()
  20.     temperaturecolor = temperatureImage.getPixel(demx, demy)
  21.     temperature = temperaturecolor.green
  22.     
  23.     --recaculate and adjust
  24.     temperature = float(float(temperature)/ 3.75)
  25.     temperature = (temperature - 28)
  26.     temperature = (temperature + actualtemperature)
  27.     
  28.     put "Temperature"&integer(temperature)&" F" into member "temp_display"
  29.     --put ""&integer(demdepth)&" feet" into member "depth_display3"
  30.     --put "Current Elevation: "&integer(demdepth)&" feet" into member "depth_display2"
  31.     --put ""&integer(demdepth-8395)&" ft" into member "depth_display3"
  32.     --put ""&integer(demdepth-7505)&" ft" into member "depth_display4"
  33.     put temperature
  34.     
  35.         sprite(depthdisplay).locH = sprite(clicktestcursor).locH-60
  36.       --sprite(depthdisplay-1).locH = sprite(clicktestcursor).locH-20+50
  37.      sprite(depthdisplay).locV = sprite(clicktestcursor).locV-80
  38.      -- sprite(depthdisplay-1).locV = sprite(clicktestcursor).locV-60-30
  39.     
  40.   end if
  41.   
  42.   
  43.   
  44. end
  45.  
  46.  
  47.  
  48.